Guidemac 2/Guidemac 2.iso/Divers Computer Bench⁄Apple/Logiciels Apple (dpt AppleSoft)/Apple Media Tool/Apple Media Tool Démo/Exemples AMT/Travel/For Programmers/SOURCES/S2_COAST.k

Text File | 1993-07-01 | 4KB | 268 lines

object S2_COAST is MEDIADISTRIBUTOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S2A1_S2_CST,
        S2A3_AUD_CLK_WAV,
        S2A18_LA_HL,
        S2A19_SD_HL,
        S2A17_LOS_ANGELES,
        S2A16_SAN_DIEGO,
        S2A20_SAC_HL,
        S2A21_SF_HL,
        S2A15_SAN_FRANCISCO,
        S2A14_SACREMENTO
    ];
end;

object S2A1_S2_CST is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Target is C11_S2_CST;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 0; Y is 0; Width is 640; Height is 480;
    HotRegion is {
        $01DF0002, $0000027F, $01E00000, $FFFFFFFF
    };
end;

object S2A3_AUD_CLK_WAV is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            self.Show(true);
            APPLICATION.GoBack(MEDIADISTRIBUTOR);
            TRANSITION.Set(WipeLeft, 30);
        end;

with
    Target is C126_AUD_CLK_WAV;
    Enabled is false;
    Running is false;
    Duration is 0;
    Shown is false;
    X is 13; Y is 426; Width is 68; Height is 48;
end;

object S2A18_LA_HL is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is C77_LA_HL;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 398; Y is 346; Width is 118; Height is 25;
end;

object S2A19_SD_HL is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is C78_SD_HL;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 460; Y is 394; Width is 93; Height is 22;
end;

object S2A17_LOS_ANGELES is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(false);
        end;

    MouseEnter(theX, theY)
        do
            S2A18_LA_HL.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S2A18_LA_HL.Show(false);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 495; Y is 350; Width is 23; Height is 20;
end;

object S2A16_SAN_DIEGO is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(false);
        end;

    MouseEnter(theX, theY)
        do
            S2A19_SD_HL.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S2A19_SD_HL.Show(false);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 535; Y is 395; Width is 22; Height is 19;
end;

object S2A20_SAC_HL is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is C75_SAC_HL;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 372; Y is 149; Width is 96; Height is 37;
end;

object S2A21_SF_HL is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            APPLICATION.GoTo(S3_CITY);
        end;

with
    Target is C76_SF_HL;
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 267; Y is 187; Width is 106; Height is 24;
end;

object S2A15_SAN_FRANCISCO is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            S2A3_AUD_CLK_WAV.Run(true);
            TRANSITION.Set(WipeRight, 30);
            APPLICATION.GoTo(S3_CITY);
        end;

    MouseEnter(theX, theY)
        do
            S2A21_SF_HL.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S2A21_SF_HL.Show(false);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 353; Y is 187; Width is 25; Height is 24;
end;

object S2A14_SACREMENTO is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(false);
        end;

    MouseEnter(theX, theY)
        do
            S2A20_SAC_HL.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S2A20_SAC_HL.Show(false);
        end;

with
    Enabled is false;
    Running is false;
    Duration is -1;
    Shown is false;
    X is 401; Y is 167; Width is 23; Height is 19;
end;